//-------------Sonic CD R2 1 A CycPal Setup Script---------------//
//-------------------Scripted by Makasinaaaa------------------//
//-------Unpacked By Rubberduckycooly's Script Unpacker-------//

// Aliases
#alias Object.Value0	:	Object.Timer

// Priority
#alias 1	:	PRIORITY_ACTIVE


sub ObjectMain
	Object.Timer--
	if Object.Timer <= 0
		Object.Timer = 5
		RotatePalette(170, 172, 1)
		RotatePalette(173, 175, 0)
	end if
	
	
end sub
sub ObjectStartup
	Object[19].Type = TypeName[PaletteAnimation]
	Object[19].Priority = PRIORITY_ACTIVE
end sub